home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / macromkr / adpromac.lha / $BATCH_COMPRESS.adpro < prev    next >
Text File  |  1993-09-27  |  2KB  |  75 lines
  1. /**********************************************************************
  2.  **            ADPRO MACRO BATCH FILE COMPRESS SHIFT-F10 KEY         **
  3.  **********************************************************************/
  4. TRACE off
  5. OPTIONS RESULTS
  6. NL = "0A"X
  7. ADDRESS "ADPro"
  8. STRING = '"BATCH COMPRESS FILES?"'
  9. OKAY2 STRING
  10. IF RC = 0 THEN EXIT
  11. LFORMAT "UNIVERSAL"
  12. SFORMAT "JPEG"
  13. ADPRO_TO_FRONT
  14. TotalFiles = 0
  15. STRING = '"DO YOU WANT BOOSTED QUALITY?"'
  16. OKAY2 STRING
  17. IF RC = 0 THEN OPT = ''
  18. ELSE OPT = 'BOOST'
  19. GETNUM:
  20. STRING = '"WHAT COMPRESSION RATE?"'
  21. GETNUMBER STRING 32 0 100
  22. IF RC ~= 0 THEN SIGNAL GETNUM
  23. RATE = ADPRO_RESULT
  24. GETF:
  25. GETFILES '"Shift to Select Multiple Files"' 'EH0:'
  26. IF RC ~= 0 THEN 
  27. SIGNAL GETF
  28. ELSE DO
  29. TheFiles = ADPRO_RESULT 
  30. NumberOfFiles = WORDS(TheFiles)
  31. FileCounter   = 1
  32. END
  33. GETD:
  34. GETDIR '"Select Output Directory"'
  35. IF RC ~= 0 THEN
  36. SIGNAL GETD
  37. ELSE DO
  38. SDIR = ADPRO_RESULT
  39.          SDIR = STRIP(SDIR)
  40.         IF RIGHT(SDIR,1) ~= ':' THEN Sdir = Sdir || '/'
  41. END
  42. DO WHILE FileCounter <= NumberOfFiles
  43.     TheFile = WORD(TheFiles,FileCounter)
  44.     IF NumberOfFiles > 1 THEN CurrentFile = LEFT(TheFile,(LENGTH(TheFile)-1)) 
  45.     ELSE CurrentFile = TheFile
  46.     FileCounter = FileCounter + 1
  47.     SaveFile = SDIR||GetFileName(CurrentFile)||'.JPG'
  48.     SWITCH = 0
  49.     IF EXISTS(SaveFile) THEN CALL FEXIST
  50.     IF SWITCH = 0 THEN DO
  51.         LOAD CurrentFile
  52.         SAVE SaveFile "RAW" RATE OPT    
  53.         IF RC ~= 0 THEN CALL ERROR
  54.         TotalFiles = TotalFiles + 1
  55.     END
  56. END
  57. STRING = TotalFiles||' FILE(S) COMPRESSED TO '||SDIR
  58. OKAY1 STRING
  59. EXIT
  60. FEXIST:
  61.     ADPRO_TO_FRONT
  62.     STRING = SaveFile||'" AREADY EXIST, OVERWRITE?"'
  63.     OKAY2 STRING
  64.     IF RC = 0 THEN SWITCH = 1
  65.     ELSE SWITCH = 0
  66. RETURN
  67. GetFileName: procedure  /* Extract file name from full file specification */
  68.    ARG fullfile
  69.    c = lastpos("/",fullfile)
  70.    if c = 0 then c = lastpos(":",fullfile)
  71.    return substr(fullfile, c + 1)
  72. ERROR:
  73.     STRING = SaveFile||NL||ADPRO_RESULT
  74.     OKAY1 STRING
  75. EXIT